10 PRINT "ARE YOU FILING A JOINT RETURN"
20 INPUT A$
30 PRINT
40 IF A$="YES" THEN 70
50 A=1
60 GOTO 110
70 PRINT "NUMBER OF DEPENDENTS"
80 INPUT A
90 A=A+1
100 PRINT
110 FOR I=1 TO 10
120 PRINT "ENTER WAGES AND TAXES WITHHELD"
130 INPUT B(I),C(I)
140 G=G+B(I)
150 T=T+C(I)
160 PRINT "DO YOU HAVE ANY MORE ENTRIES"
170 INPUT B$
180 PRINT
190 IF B$="NO" THEN 210
200 NEXT I
210 PRINT "ENTER DIVIDENDS"
220 INPUT D
230 PRINT
240 IF A$="NO" THEN 260
250 D=D-100
260 D=D -100
270 IF D>0 THEN 290
280 D=0
290 PRINT "ENTER INTEREST AND OTHER INCOME"
300 INPUT V
310 PRINT
320 X=D+G+V
330 PRINT "YOUR TOTAL INCOME";"=";X
340 PRINT "DO YOU HAVE ANY ADJUSTMENTS?"
350 INPUT C$
360 IF C$ ="NO" THEN 400
370 PRINT "ENTER YOUR TOTAL ADJUSTMENT"
380 INPUT F
390 X=X-F
400 PRINT "-----------------------------------------------"
410 PRINT "ADJUSTED GROSS INCOME =";X
420 PRINT "-----------------------------------------------"
430 PRINT "DO YOU WISH TO ITEMIZE"
440 INPUT D$
450 IF D$= "NO" THEN 840
460 PRINT
470 PRINT "***** I T E M I Z A T I O N *****"
480 PRINT
490 PRINT "ENTER MEDICAL INSURANCE COSTS"
500 INPUT M
510 L=M/2
520 IF L<=150 THEN 550
530 L1=L-150
540 L=150
550 L2=L+L1
560 PRINT "ENTER MEDICAL AND DRUG EXPENSES"
570 INPUT D1
580 D2=D1-(X*.01)
590 IF D2>=0 THEN 610
600 D2=0
610 PRINT "ENTER OTHER MEDICAL AND DENTAL EXPENSES"
620 INPUT N
630 P=N+L2
640 L3=P-(X*.03)
650 IF L3>=0 THEN 670
660 L3=0
670 PRINT "TOTAL MEDICAL DEDUCTION=";L+D2+L3
680 Z=L+D2+L3
690 PRINT "ENTER TAXES FOR REAL ESTATE,GASOLINE,AND GENERAL SALES"
700 PRINT "STATE AND LOCAL INCOME ,AND PERSONAL PROPERTY"
710 INPUT N,P,Q,R,W
720 S=N+P+Q+R+W
730 PRINT "ENTER TOTAL CONTRIBUTIONS"
740 INPUT S1
750 PRINT "ENTER TOTAL INTEREST EXPENSES"
760 INPUT S2
770 PRINT "ENTER MISCELLANEOUS DEDUCTIONS"
780 INPUT S3
790 S4=S+S1+S2+S3+Z
800 PRINT
810 PRINT "-----------------------------------------------"
820 PRINT
830 IF S4>1000 THEN 870
840 X7=G*.10
850 IF X7<=1000 THEN 870
860 X7=S4=1000
870 C1=X-S4-(A*600)
880 PRINT "YOUR TAXABLE INCOME=";C1
890 PRINT "ENTER TABLE INFORMATION AS "
900 PRINT "IN EXCESS OF $A, TAX AT $A, AND % ABOVE A$"
910 INPUT A3,A4,A5
920 A7=C1-A3
930 A8=A7*(A5/100)
940 T4=A4+A8
950 T5=T4*.1
960 PRINT "YOUR TAX=";T4+T5
970 T6=T4+T5-T
980 IF T6>=0 THEN 1020
990 T6=T-(T4+T5)
1000 PRINT "YOUR REFUND DUE=";T6
1010 GOTO 1030
1020 PRINT "YOU OWE=";T6
1030 PRINT
1040 PRINT
1050 PRINT "THANK YOU"
1060 END
                                                       